home *** CD-ROM | disk | FTP | other *** search
/ What CD? 6 / What PC December 1996.iso / mgiwdec.dxr / 00008_MGILeave,MGIReturn.ls < prev    next >
Encoding:
Text File  |  1996-10-14  |  4.2 KB  |  115 lines
  1. on MGILeave y
  2.   global IFLButtonList, IFLMAGNETNameSprite, ADDADCOntTwo, ADDAdCount, MGIMasterList, ADDADvertSprite, STComp, IFLHeadInkList
  3.   if y = 1 then
  4.     nothing()
  5.   else
  6.     puppetSound(0)
  7.     updateStage()
  8.   end if
  9.   set STComp to 0
  10.   set the locH of sprite 22 to 2000
  11.   set the castNum of sprite 22 to 111
  12.   updateStage()
  13.   repeat with f = 1 to count(MGIMasterList)
  14.     set TwochangeSprite to getAt(MGIMasterList, f)
  15.     if count(TwochangeSprite) > 2 then
  16.       setAt(TwochangeSprite, 2, the castNum of sprite getAt(TwochangeSprite, 1))
  17.       setAt(TwochangeSprite, 5, the ink of sprite getAt(TwochangeSprite, 1))
  18.       setAt(TwochangeSprite, 3, the locH of sprite getAt(TwochangeSprite, 1))
  19.       setAt(TwochangeSprite, 4, the locV of sprite getAt(TwochangeSprite, 1))
  20.     else
  21.       setAt(TwochangeSprite, 2, 0)
  22.     end if
  23.     set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  24.     set the locV of sprite getAt(TwochangeSprite, 1) to 2000
  25.   end repeat
  26.   set the locH of sprite ADDADvertSprite to 2000
  27.   if y = 2 then
  28.     set the locH of sprite 1 to 2000
  29.     repeat with f = 1 to count(IFLButtonList)
  30.       set ThisTempList to getAt(IFLButtonList, f)
  31.       setAt(ThisTempList, 2, the castNum of sprite getAt(ThisTempList, 1))
  32.     end repeat
  33.     repeat with f = 1 to count(IFLHeadInkList)
  34.       set InkTempList to getAt(IFLHeadInkList, f)
  35.       setAt(InkTempList, 2, the ink of sprite getAt(ThisTempList, 1))
  36.     end repeat
  37.     repeat with t = 39 to 47
  38.       set the locH of sprite t to 2000
  39.     end repeat
  40.     set the castNum of sprite IFLMAGNETNameSprite to getAt(getAt(IFLButtonList, 9), 5)
  41.     set ADDADCOntTwo to 0
  42.     set ADDAdCount to 0
  43.     set the locH of sprite ADDADvertSprite to 2000
  44.     ADDLOADAdd()
  45.   end if
  46.   updateStage()
  47. end
  48.  
  49. on MGIReturn y
  50.   global MGIMasterList, IFLButtonList, IFLMAGNETNameSprite, ESpinsprite, MGIMasFlag, IFLHeadInkList
  51.   if y = 1 then
  52.     repeat with g = 1 to 9
  53.       set the castNum of sprite IFLMAGNETNameSprite to the castNum of sprite IFLMAGNETNameSprite - 1
  54.       updateStage()
  55.     end repeat
  56.     updateStage()
  57.     set the castNum of sprite ESpinsprite to 29
  58.     set the locH of sprite ESpinsprite to 432
  59.     set the locV of sprite ESpinsprite to 30
  60.     set the castNum of sprite IFLMAGNETNameSprite to the castNum of sprite IFLMAGNETNameSprite - 1
  61.     set the castNum of sprite 36 to 41
  62.     set the locH of sprite 36 to 407
  63.     set the locV of sprite 36 to 25
  64.     set the ink of sprite 36 to 37
  65.     updateStage()
  66.     if MGIMasFlag = 0 then
  67.       set MGIMasFlag to 1
  68.       repeat with t = 39 to 47
  69.         if t <> IFLMAGNETNameSprite then
  70.           set the ink of sprite t to 39
  71.         end if
  72.       end repeat
  73.       set the ink of sprite 1 to 39
  74.       updateStage()
  75.     end if
  76.   end if
  77.   repeat with f = 1 to count(MGIMasterList)
  78.     set TwochangeSprite to getAt(MGIMasterList, f)
  79.     if count(TwochangeSprite) > 2 then
  80.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  81.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  82.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  83.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
  84.       set the visible of sprite getAt(TwochangeSprite, 1) to 1
  85.       next repeat
  86.     end if
  87.     set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  88.   end repeat
  89.   set the locH of sprite 1 to 325
  90.   set the locV of sprite 1 to 271
  91.   if y = 2 then
  92.     set the castNum of sprite 1 to the number of member "IFLStaticBackground"
  93.     set the ink of sprite 1 to 36
  94.     repeat with f = 39 to 47
  95.       set the ink of sprite f to 36
  96.     end repeat
  97.   end if
  98.   if y = 2 then
  99.     repeat with f = 1 to count(IFLButtonList)
  100.       set TwochangeSprite to getAt(IFLButtonList, f)
  101.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  102.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  103.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  104.     end repeat
  105.     repeat with f = 1 to count(IFLHeadInkList)
  106.       set TwochangeSprite to getAt(IFLHeadInkList, f)
  107.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  108.     end repeat
  109.   end if
  110.   updateStage()
  111.   ADDAdvertBreak(9)
  112.   updateStage()
  113.   go("MGISection")
  114. end
  115.